Overview

Salmon leaping at Willamette Falls from NOAA’s Historic Fisheries Collection. Unknown photographer, 27 June 1950.

Our overview goes here; includes

Hydroelectric power represents an important renewable and low-emissions energy source, but the construction and development of the water source that these plants can require sometimes threatens resident fish populations. Fishways have been constructed and updated over time at Willamette Falls to aid the passage of salmon and steelhead runs over the falls. Daily fish counts are monitored to ensure that migration of these fish populations continues to be unhindered by the power plant and the falls. This project summarizes findings from studying monitoring data from 2001 to 2010.

Data were shared by and accessed from Columbia River DART:
Columbia River DART (Data Access in Real Time), Columbia Basin Research, University of Washington
Accessed Feb 1, 2021 at http://www.cbr.washington.edu/dart/query/adult_graph_text.

# wanted to put in a map manually here, but I was having trouble with my API (coordinates 45.351074, -122.619110)
willamette_salmon <- read_csv(here("data", "willamette_fish_passage.csv")) %>%  # read in data
  clean_names() %>% # names in tidy format
  select(date, coho, jack_coho, steelhead) %>% # select desired species
  mutate(date = mdy(date))

Original time series

Seasonplots

Annual counts by species - Minnie (still ugly!)

annual <- willamette_salmon %>%
  as_tsibble(key = NULL, index = date) %>% #Not sure if it's already a tsibble?
  index_by(yr = ~year(.)) %>% 
  summarize(annual_coho = sum(coho, na.rm = TRUE),
            annual_jack_coho = sum(jack_coho, na.rm = TRUE),
            annual_steelhead = sum(steelhead, na.rm = TRUE)
            )

ggplot(data = annual) +
  geom_line(aes(x=yr, y=annual_coho), color = "blue") +
    geom_line(aes(x=yr, y=annual_jack_coho), color = "green") +
    geom_line(aes(x=yr, y=annual_steelhead), color = "red")